Night Owl 6/Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso/023a/prop_man.zip/UNOCCUP.SAB

Text File | 1991-11-07 | 2KB | 51 lines

CLS
SET MESSAGES OFF
display cp.dis
write "UNOCCUP.SAB" at 2,36
WRITE "       List Of Vacant Housing" AT 8,22
WRITE "Processing -- Please Wait" AT 12,28
DELETE ROWS FROM UNOCCUP WHERE ADD.CODE EXISTS
REMOVE TAB TEMP
REMOVE TAB TEMP2
SUBTRACT CUR.MAST FROM PROPERTY FORMING TEMP2 USING ADD.CODE
PROJECT TEMP FROM TEMP2 USING ALL
SET POINTER #1 EOF FOR TEMP
WHILE EOF = 0 THEN
SET V CODE TO ADD.CODE IN #1
APPEND PROPERTY TO UNOCCUP WHERE ADD.CODE = .CODE
NEXT #1 EOF
ENDWHILE
CHANGE l.name TO "  vacant" IN UNOCCUP WHERE ADD.CODE EXISTS
change l.name to "  vacant" in unoccup2 where add.code exists
append cur.mast to unoccup whe lease < (.#date + 60)
del rows from unoccup whe oner = "expacct"
append cur.mast to unoccup where notice exists
append cur.mast to unoccup where sus.vac exists
append unoccup2 to unoccup where add.code exists
del row fro menomony where add.code exists
app unoccup to menomony where add.code contains men
del row fro menomony where includes = "exempt"
del row fro menomony where city con manage
del row fro unoccup where add.code con men
delete rows from unoccup where add.code contains nonrent
delete rows from unoccup where size fails or size contains exempt
set null " "
out pri
del row fro unoccup whe add.code contains bri050
del row fro unoccup whe add.code con 24s1952
append cur.mast to unoccup whe notice exists
del dup fro unoccup
print vacant2 sorted by size
del row fro unoccup whe sus.vac = "e"
del row fro unoccup whe sus.vac = "5"
del row fro unoccup whe sus.vac = "c"
pri vacant sor by size
pri vacant sor by size
pri menomony sor by add.code
OUTPUT SCREEN
CLS
SET RULES ON
RETURN